﻿Imports System.Text
Imports System.IO
Imports Microsoft.VisualStudio.TestTools.UnitTesting
Imports Moca.Office.Excel

<TestClass()> Public Class ExcelTest

    <TestMethod()>
    Public Sub ExportAsFixedFormatTest()
        Using xlsx As ExcelWrapper = New ExcelWrapper()
            Dim book As BookWrapper
            book = xlsx.Workbooks.Open(Path.Combine(My.Application.Info.DirectoryPath, "Book1.xlsx"))
            book.ExportAsFixedFormat(FixedFormatType.XPS, "C:\Temp\Test.xps")
            book.ExportAsFixedFormat(FixedFormatType.PDF, "C:\Temp\Test.pdf", , , , , , True)
        End Using
    End Sub

End Class
